Garbo/Garbo.cdr/mac/hypercrd/xcmd/alrtdlgs.sit/alertdialogs.sit/Alerts Dialogs v. 2.0/stack.txt

Text File | 1988-11-07 | 5KB | 181 lines

-- stack: in.0
-- format: 8 (HyperCard 1)
-- flags: 0xD000 (can't modify, can't delete)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2745
-- card count: 6
-- first card id: 2841
-- list block id: 6598
-- print block id: 5460
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 21536 bytes
-- stack block size: 5632 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01208000
-- modified by hypercard version: 0x01208000
-- opened by hypercard version: 0x01208000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on openStack
  hide menuBar
  hide msg
end openStack

on closeStack
  show menuBar
end closeStack


on mouseUp
  get the number of card
  if it=the number of cards then
    get the mouseLoc
    if it is within the rect of card button "Copy Source Code" then
      select text of card field "source code listing"
      doMenu "Copy Text"
      select empty
      exit mouseUp
    end if
  end if
  get the number of card
  if it<>the number of cards then
    get the mouseLoc
    if it is within the rect of bg button "OK" then
      visual effect barn door open fast
      go next
      exit mouseUp
    end if
  end if
  get the number of card
  if it =1 then
    get the mouseLoc
    if it is within the rect of card button "home" then
      go home
    else if it is within the rect of card button "Try It" then
      Alert 2,1,"Alert Dialogs for Hypercard",1
    end if
  end if
  if it=5 then
    get the mouseLoc
    if it is within the rect of card button "Install" then
      get FileName("STAK")
      if it is not empty then
        pasteAlert it
      else
        Alert 2,1,"Installation Canceled",0
        set cursor to 1
      end if
    end if
  end if
  get the number of card
  if it <> 1 then
    get the mouseLoc
    if it is within the rect of bg button "Cancel" then
      visual effect barn door open fast
      go prev
      exit mouseUp
    end if
  end if
end mouseUp

on pasteAlert yourStack
  put the value of word 2 of long name of this stack into thisStack
  put the short name of yourStack into labelforAlert
  put "Install the Alert XCMD and related resources into " & quote & labelforAlert & quote & " ?" into alertText
  Alert 2,3,alertText,1
  if the result is 1 then
    set cursor to busy
    rescopy thisStack,yourStack,"XCMD","Alert"
    set cursor to busy
    rescopy thisStack,yourStack,"ALRT",2594
    set cursor to busy
    rescopy thisStack,yourStack,"ALRT",4381
    set cursor to busy
    rescopy thisStack,yourStack,"ALRT",15163
    set cursor to busy
    rescopy thisStack,yourStack,"ALRT",16661
    set cursor to busy
    rescopy thisStack,yourStack,"DITL",3182
    set cursor to busy
    rescopy thisStack,yourStack,"DITL",30239
    set cursor to busy
    rescopy thisStack,yourStack,"DITL",26061
    set cursor to busy
    rescopy thisStack,yourStack,"DITL",17153
    set cursor to busy
    Alert 2,1,"Installation Complete",0
    set cursor to 1
  else
    Alert 2,1, "Installation Cancelled",0
    set cursor to 1
  end if
end pasteAlert

on ReturnKey
  get the number of card
  if it<>the number of cards then
    visual effect barn door open fast
    go next
  end if
  pass ReturnKey
end ReturnKey

on EnterKey
  get the number of card
  if it<>the number of cards then
    visual effect barn door open fast
    go next
  end if
  pass EnterKey
end EnterKey